1000 ;
1010 ; * DARKTERM '88 - PARTIAL *
1020 ; * EQUATES LIST           *
1030 ;
1040 PGM    =$87D ; PROGRAM START
1050 ;
1060 SCREEN =$CC00 ; SCREEN MEMORY
1070 RS232  =$3E00 ; BUFFERS @ ($3C00)
1080 MODLOD =$4500 ; MODEM FILES
1090 PROLOD =$3E00 ; PROTOCOL OVERLAY
1100 EXECED =$C400 ; OVERLAY AREA
1110 SAVBFS =$C400 ; SCREEN SWAP SAVE
1120 SAVBFC =$C800 ; COLOR SWAP SAVE
1130 FILMEM =$B000 ; MULTI-FILE BUFFER
1140 BUFFER =$4800 ; 31K BUFFER START
1150 ;
1160 PLOAD  =$334 ; PARAMETERS START
1170 PARLEN =192 ; 192 BYTES RESERVED
1180 ;
1190 K      =$400 ; FUNCTION KEY START
1200 ;
1210 ANSWER =MODLOD ; MODEM FILE JUMP
1220 DODIAL =MODLOD+3 ; TABLE ADDRS
1230 ONHOOK =MODLOD+6
1240 OFHOOK =MODLOD+9
1250 CARCHK =MODLOD+12
1260 CUSTOM =MODLOD+15
1270 HANGUP =MODLOD+18
1280 ;
1290 SEND1  =PROLOD ; PUNTER SEND 1
1300 RECV1  =PROLOD+3 ; PUNTER RECV 1
1310 SEND2  =PROLOD+6 ; PUNTER SEND 2
1320 RECV2  =PROLOD+9 ; PUNTER RECV 2
1330 XMODES =PROLOD ; XMODEM SEND
1340 XMODER =PROLOD+3 ; XMODEM RECV
1350 READY  =PROLOD+12 ; PREPARE RS232
1360 OLDNEW =PROLOD+15 ; MULTI FILE ON
1370 NEWOLD =PROLOD+18 ; MULTI-FILE OFF
1380 ;
1390 BUFTOP =$C400 ; TOP OF 31K BUFFER
1400 ;
1410 ; * PARAMETERS *
1420 ;
1430 PARCHR =820 ; CHARACTER SET FILE
1440 PARKEY =836 ; FUNCTION KEY FILE
1450 PARMOD =852 ; MODEM FILE
1460 SAVC1  =868 ; SCREEN COLORS
1470 SAVC2  =869
1480 SAVC3  =870
1490 PROTO  =871 ; PROTOCOL TYPE
1500 BLKSIZ =872 ; PUNTER BLOCK SIZE
1510 BAUD   =873 ; BAUD RATE
1520 PDEV   =875 ; PRINTER DEVICE
1530 PSEC   =876 ; PRINTER SECOND ADDR
1540 ESCFLG =877 ; ESCAPE SEQUENCE FLAG
1550 CLATE  =878 ; COLOR TRANSLATE FLAG
1560 XDELO  =879 ; BUFFER XMIT DELAY
1570 XDEHI  =880
1580 TSPACE =881 ; PRINT - TOP MARGIN
1590 BSPACE =882 ; - BOTTOM MARGIN
1600 MCC    =883 ; RESERVED
1610 PLIN   =884 ; LINES PER PAGE
1620 ESCLEN =885 ; ESCAPE SEQ LENGTH
1630 ESCLIN =886 ; ESCAPE SEQ BUFFER
1640 SBITS  =918 ; STOP BITS
1650 PARITY =919 ; PARITY
1660 WRDLEN =920 ; WORD LENGTH
1670 BSPEED =921 ; BUFFER RATE FLAG
1680 DETECT =922 ; CARRIER DETECT FLAG
1690 NULLS  =923 ; NULLS
1700 LINEF  =924 ; LINEFEED STATUS
1710 HDELAY =925 ; HANGUP DELAY
1720 WDELAY =926 ; CARRIER WAIT DELAY
1730 DDELAY =927 ; PULSE DIAL SPEED
1740 PRELEN =929 ; AT PREFIX LENGTH
1750 PREFIX =930 ; AT PREFIX BUFFER
1760 CRCFLG =934 ; XMODEM CRC TYPE
1770 COMLOK =935 ; COMMAND MODE FLAG
1780 COLLOK =936 ; COLOR/ASCII FLAG
1790 SCRSUP =937 ; SCREEN INHIBIT
1800 MODSUP =938 ; MODEM INHIBIT
1810 CAPLOK =939 ; CAPS LOCK
1820 WRPLOK =940 ; WORD WRAP LOCK
1830 CWAVE  =941 ; KEYCLICK WAVEFORM
1840 CFREQ  =942 ; KEYCLICK FREQUENCY
1850 CLKFLG =943 ; KEYCLICK FLAG
1860 BWAVE  =944 ; BELL WAVEFORM
1870 BFREQ  =945 ; BELL FREQUENCY
1880 BELFLG =946 ; BELL ENABLE FLAG
1890 MULTYP =947 : MULTI-FILE PROTOCOL
1900 BMILL  =948 ; BUFFER DISPLAY RATE
1910 V295   =949 ; BAUD TIMING VALUES
1920 V296   =950
1930 V299   =953
1940 V29A   =954
1950 VTIML  =957
1960 VTIMH  =958
1970 ;
1980 ; * TERMINAL GLOBAL ROUTINES *
1990 ;
2000 IPRINT =PGM+3
2010 INLINE =IPRINT+3
2020 INKEY  =INLINE+3
2030 BFREE  =INKEY+3
2040 OUT    =BFREE+3
2050 YESNO  =OUT+3
2060 RESCUR =YESNO+3
2070 ALTMOD =RESCUR+3
2080 MILLI  =ALTMOD+3
2090 CURSON =MILLI+3
2100 HEXDEC =CURSON+3
2110 ROPEN  =HEXDEC+3
2120 WOPEN  =ROPEN+3
2130 SENDOS =WOPEN+3
2140 EVAL1  =SENDOS+3
2150 EVAL2  =EVAL1+3
2160 INFO   =EVAL2+3
2170 QOUT   =INFO+3
2180 PAUSE  =QOUT+3
2190 DOCLOS =PAUSE+3
2200 WAITR  =DOCLOS+3
2210 FILEIN =WAITR+3
2220 HEXASC =FILEIN+3
2230 ADDIBP =HEXASC+3
2240 SUBIBP =ADDIBP+3
2250 USHIFT =SUBIBP+3
2260 DSHIFT =USHIFT+3
2270 QUOSCR =DSHIFT+3
2280 FNDSCR =QUOSCR+3
2290 CARPRS =FNDSCR+3
2300 VINPUT =CARPRS+3
2310 ;